home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / basic / pbasmlib.zip / PBADEMO5.BAS < prev    next >
BASIC Source File  |  1994-02-12  |  900b  |  30 lines

  1. $link "pbasmlib.pbl"
  2. $include "pbasmlib.inc"
  3.  
  4.  
  5. 'Another PBASMLIB Sound Module Demo
  6.  
  7. 'Strum a harp using soundblaster.
  8. 'We'll use all 9 voices for this.
  9. 'Quick attack,slow release.
  10. '50 millisecond delay between each
  11. 'note on the "harp."
  12.  
  13. strum:
  14. sbfmclear 'Clear the Soundblaster
  15. for t%=0 to 2 'Strum it 3 times, with vibrato, changing harmonic each time.
  16.               'This produces a suitably heavenly sound.
  17.     for u%=1 to 9 'Change parameters for all channels
  18.         call    sbfmparms(u%,0,1,0,t%)
  19.     next u%
  20.     sbfmnote 1,345,4,240,4,1,0:sbdelay 50
  21.     sbfmnote 2,431,4,240,4,1,0:sbdelay 50
  22.     sbfmnote 3,515,4,240,4,1,0:sbdelay 50
  23.     sbfmnote 4,688,4,240,4,1,0:sbdelay 50
  24.     sbfmnote 5,345,6,240,4,1,0:sbdelay 50
  25.     sbfmnote 6,431,6,240,4,1,0:sbdelay 50
  26.     sbfmnote 7,515,6,240,4,1,0:sbdelay 50
  27.     sbfmnote 8,688,6,240,4,1,0:sbdelay 50
  28.     sbfmnote 9,345,8,240,4,1,0:sbdelay 50
  29.     sbdelay 250
  30. next t%